home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / dmsext < prev    next >
AmigaDOS Script File  |  1996-09-26  |  659b  |  34 lines
  1. .key pubscreen/a,file/a
  2. .bra {
  3. .ket }
  4. ; $VER: dmsext 37.2 (13.8.93)
  5. ;
  6. ; Asks user for a disk to extract a DMS file to.  This uses
  7. ; the AmigaDOS requestchoice under 3.0 and the requestchoice
  8. ; program included with Rush under AmigaDOS 2.x.
  9. ;
  10.  
  11. requestchoice >env:dmsdisk pubscreen {pubscreen} "DMS Extract" "Select disk to extract '{file}' to:" "df0:|ff0:|ff1:|Cancel"
  12.  
  13. if val $dmsdisk EQ 1
  14.   set disk "df0:"
  15.   endif
  16.  
  17. if val $dmsdisk EQ 2
  18.   set disk "ff0:"
  19.   endif
  20.  
  21. if val $dmsdisk EQ 3
  22.   set disk "ff1:"
  23.   endif
  24.  
  25. if val $dmsdisk EQ 0
  26.   quit
  27.   endif
  28.  
  29. if exists env:dmsdisk
  30.   delete quiet "env:dmsdisk"
  31.   endif
  32.  
  33. dms write {file} to $disk <z:rush/scripts/return
  34.